Public Class NavigationBarItemCollection
    Inherits CollectionBase

    Public Sub Add(ByVal text As String, ByVal url As String)
        Me.InnerList.Add(New NavigationBarItem(text, url))
    End Sub

    Public Sub Add(ByVal item As NavigationBarItem)
        Me.InnerList.Add(item)
    End Sub

    Public ReadOnly Property Item(ByVal idx As Integer) As NavigationBarItem
        Get
            Return CType(Me.InnerList.Item(idx), NavigationBarItem)
        End Get
    End Property

End Class
